home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / ELECTRIC / DSPICE0S.ZIP / cdiv.c < prev    next >
C/C++ Source or Header  |  1992-11-22  |  1KB  |  35 lines
  1. /* cdiv.f -- translated by f2c (version of 3 February 1990  3:36:42).
  2.    You must link the resulting object file with the libraries:
  3.     -lF77 -lI77 -lm -lc   (in that order)
  4. */
  5.  
  6. #include "f2c.h"
  7.  
  8. /*<       subroutine cdiv(xr,xi,yr,yi,cr,ci) >*/
  9. /* Subroutine */ int cdiv_(xr, xi, yr, yi, cr, ci)
  10. doublereal *xr, *xi, *yr, *yi, *cr, *ci;
  11. {
  12.     static doublereal amag2, xitemp, yitemp, xrtemp, yrtemp;
  13.  
  14. /* .. ok if cr and ci are really xr and xi or yr and yi */
  15. /*<       implicit double precision (a-h,o-z) >*/
  16. /*<       xrtemp=xr >*/
  17.     xrtemp = *xr;
  18. /*<       xitemp=xi >*/
  19.     xitemp = *xi;
  20. /*<       yrtemp=yr >*/
  21.     yrtemp = *yr;
  22. /*<       yitemp=yi >*/
  23.     yitemp = *yi;
  24. /*<       amag2=yrtemp*yrtemp+yitemp*yitemp >*/
  25.     amag2 = yrtemp * yrtemp + yitemp * yitemp;
  26. /*<       cr=(xrtemp*yrtemp+xitemp*yitemp)/amag2 >*/
  27.     *cr = (xrtemp * yrtemp + xitemp * yitemp) / amag2;
  28. /*<       ci=(xitemp*yrtemp-xrtemp*yitemp)/amag2 >*/
  29.     *ci = (xitemp * yrtemp - xrtemp * yitemp) / amag2;
  30. /*<       return >*/
  31.     return 0;
  32. /*<       end >*/
  33. } /* cdiv_ */
  34.  
  35.